//From http://www.osc.edu/supercomputing/training/mpi/mpi_0504.pdf   
#include<mpi.h>
void main (intargc, char *argv[]) {
  int rank;
  double param;
  MPI_Init(&argc, &argv);
  MPI_Comm_rank(MPI_COMM_WORLD,&rank);
  if(rank==5) param=23.0;
  MPI_Bcast(&param,1,MPI_DOUBLE,5,MPI_COMM_WORLD);
  printf("P:%dafter broadcast parameter is %f\n",rank,param);
  MPI_Finalize();
}
